home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / misc / cpk / arexx / zclip_anim2.cpk < prev    next >
Text File  |  1994-09-02  |  613b  |  38 lines
  1. /*
  2.  * CPK ARexx communications test; slice the current molecule using
  3.  * the hither Z-Clipping plane.  This works well with the B-DNA
  4.  * structure...
  5.  *
  6.  * Author: Eric G. Suchanek, Ph.D.
  7.  * Copyright © 1994 Eric G. Suchanek, Ph.D. All Rights Reserved
  8.  *
  9.  * You need to run the CPK program first...
  10.  * 
  11.  */
  12.  
  13. Options FailAt 100
  14.  
  15. Options Results
  16.  
  17. address cpk1
  18.  
  19. 'VectorMode ON'
  20. 'Verbose OFF'
  21. 'ZRecalc'
  22. 'Zclip ON'
  23.  
  24. frame_tot = 20
  25. inc = 100 / frame_tot
  26.  
  27. /* move the plane */
  28. do frame = 0 to frame_tot
  29.   cut = frame * inc
  30.   say 'clipping is ' cut
  31.   'hither ' cut
  32.   'render'
  33. /*  'save iff ram:zclip.'frame */
  34. end
  35.  
  36.  
  37. exit
  38.